home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / listing 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  886b  |  53 lines
  1. 1000 rem *** ein sprite-jojo
  2. 1010 :
  3. 1020 :
  4. 1030 rem ** ausgabe programmeldung
  5. 1040 :
  6. 1050 print "[147]bitte warten";
  7. 1060 :
  8. 1070 :
  9. 1080 rem ** sprite-daten einlesen
  10. 1090 :
  11. 1100 for n = 896 to 958
  12. 1110 :   poke n,255
  13. 1120 next n
  14. 1130 :
  15. 1140 :
  16. 1150 rem ** sprite-steuerung
  17. 1160 :
  18. 1170 print "[147]";    :rem bilds.loeschen
  19. 1180 poke 2040,14  :rem datenzeiger
  20. 1190 :
  21. 1200 vic = 53248   :rem vic-baustein
  22. 1210 poke vic,170  :rem horizont. pos.
  23. 1220 poke vic+1,80  :rem vertikale pos
  24. 1230 poke vic+39,13:rem gruenes sprite
  25. 1240 poke vic+21,1 :rem sprite 0 ein
  26. 1250 :
  27. 1251 :
  28. 1252 rem runter, dann hoch
  29. 1253 :
  30. 1254 for vp = 80 to 200
  31. 1255 :   poke vic+1,vp
  32. 1256 next vp
  33. 1257 :
  34. 1258 for vp = 199 to 81 step -1
  35. 1259 :   poke vic+1,vp
  36. 1260 next vp
  37. 1261 :
  38. 1262 :
  39. 1270 rem ** prog.ende nach tastendruck
  40. 1280 :
  41. 1290 get kp$
  42. 1300 if kp$ = "" then 1254
  43. 1310 :
  44. 1320 :
  45. 1330 rem ** register zuruecksetzen
  46. 1340 :
  47. 1350 poke vic+21,0 :rem ruecksetzung
  48. 1360 poke vic+39,0 :rem in umgekehrter
  49. 1370 poke vic+1,0  :rem reihenfolge...
  50. 1380 poke vic,0
  51. 1390 :
  52. 1400 end
  53.